home *** CD-ROM | disk | FTP | other *** search
/ Columbia Kermit / kermit.zip / newsgroups / misc.19950929-19951130 / 000162_news@columbia.edu_Fri Oct 20 17:10:16 1995.msg < prev    next >
Internet Message Format  |  2020-01-01  |  2KB
  1. Received: from apakabar.cc.columbia.edu by watsun.cc.columbia.edu with SMTP id AA25323
  2.   (5.65c+CU/IDA-1.4.4/HLK for <kermit.misc@watsun.cc.columbia.edu>); Sat, 21 Oct 1995 08:36:24 -0400
  3. Received: by apakabar.cc.columbia.edu id AA20766
  4.   (5.65c+CU/IDA-1.4.4/HLK for kermit.misc@watsun); Sat, 21 Oct 1995 08:36:22 -0400
  5. Path: news.columbia.edu!sol.ctr.columbia.edu!news.msfc.nasa.gov!newsfeed.internetmci.com!tank.news.pipex.net!pipex!oleane!calvacom!newsmaster
  6. From: do11@calvacom.fr (Dominique Ottello)
  7. Newsgroups: comp.protocols.kermit.misc
  8. Subject: Is there a bug in fonction \Fcode(Char)
  9. Date: 20 Oct 1995 17:10:16 GMT
  10. Organization: CalvaNet. French IP Provider.
  11. Lines: 46
  12. Message-Id: <468l5o$sai@midgard.calvacom.fr>
  13. Nntp-Posting-Host: ppp1-5.calvacom.fr
  14. Mime-Version: 1.0
  15. Content-Type: Text/Plain; charset=US-ASCII
  16. X-Newsreader: WinVN 0.99.6
  17. Apparently-To: kermit.misc@watsun.cc.columbia.edu
  18.  
  19. Hello from France.
  20.  
  21. I think there is a bug into Kermit MS-DOS Version 3.14
  22. The fonction \Fcode(Char) return the value 150 for a space as for u-circomflex
  23.  
  24. I try this :
  25.  
  26. define line ==   SERIAL NUMBER : D00536      ==
  27. ;
  28. ; Search for position of (:) into Line
  29. assign Begin \Findex(:,\m(Ligne),1)
  30. increment Begin
  31. ;
  32. ; Extract substring beginning after (:) to the end of Line into SN2End
  33. assign SN2End \Fsubstr(\m(Line),\m(Begin),)
  34. ;
  35. define \%n 1
  36. :Bcl
  37. assign Tmp \Fsubstr(\m(SN2End),\%n,1)
  38. ;
  39. assign Ascii \Fcode(\m(Tmp))
  40. echo {Char=\m(Tmp) Code=\m(Ascii)}
  41. ;
  42. ; Test if the character is a Space
  43. if = \m(Ascii) 32 goto LenOK
  44. increment \%n
  45. goto Bcl
  46. ;
  47. :LenOK
  48. decrement \%n
  49. assign SN \Fsubstr(\m(SN2End),1,\%n)
  50. echo Line=\M(Line)
  51. echo {SN extracted from Line=\m(SN)}
  52.  
  53. There are spaces after D00536 into variable Line,
  54. but the fonction \Fcode(\m(Tmp)) always return 150 when Tmp is a space.
  55. So, I am not able to test where ends the serial number.
  56.  
  57. Is there a patch to correct this problem ?
  58. Or is there any possibility to do this test another way ?
  59.  
  60. Best Regards
  61.  
  62. Dominique Ottello
  63. do11@calvacom.fr
  64.